(cperl-perldoc): Require man before binding `manual-program'.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 5c6b22afff2a95f2c1d3b9709bba176c526a5d0d..0a7dcf5212e0ded938aeb9b88b8c3d5719c0cfe0 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -7045,6 +7045,7 @@ We suppose that the regexp is scanned already."
                    (error "No perldoc args given")
                  default-entry)
              input))))
+  (require 'man)
   (let* ((is-func (and
                   (string-match "^[a-z]+$" word)
                   (string-match (concat "^" word "\\>")
@@ -7052,7 +7053,6 @@ We suppose that the regexp is scanned already."
                                  'cperl-short-docs
                                  'variable-documentation))))
         (manual-program (if is-func "perldoc -f" "perldoc")))
-    (require 'man)
     (Man-getpage-in-background word)))
 
 (defun cperl-perldoc-at-point ()